home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / graphics / n-z / tpaint / install / tpaint.install < prev   
Text File  |  1995-12-21  |  4KB  |  133 lines
  1.  
  2. (if (= @language "english") (
  3.         (set #selectdest "Select drawer where TPaint should be installed. A subdrawer 'TPaint' will automatically be created.")
  4.         (set #maincopy "Install the main program 'TPaint'?")
  5.         (set #guidecopy "Install the manual in AmigaGuide-Format?")
  6.         (set #localcopy "Install german catalogs?")
  7.         (set #teddicopy "Install teddi.library?\n(necessary to run TPaint)")
  8.         (set #dithercopy "Install dither.library?\n(necessary to run TPaint)")
  9.         (set #losaprcopy "Install losapr.library?\n(necessary to run TPaint)")
  10.         (set #iconcopy "Install the default icon for pictures?")
  11.         (set #palettecopy "Install the saved palette's?")
  12.         (set #filtercopy "Install the saved filter's?")
  13.         (set #startup "Modify your 'S:user-startup'?\n(Otherwise TPaint doesn't find the icon for pictures)")
  14.     )
  15. )
  16.  
  17. (if (= @language "deutsch") (
  18.         (set #selectdest "Wählen Sie das Verzeichnis, in das TPaint installiert werden soll. Ein Unterverzeichnis 'TPaint' wird automatisch erzeugt.")
  19.         (set #maincopy "Das Hauptprogramm 'TPaint' installiert werden?")
  20.         (set #guidecopy "Die Anleitung im AmigaGuide-Format installieren?")
  21.         (set #localcopy "Die deutschen Cataloge installieren?")
  22.         (set #teddicopy "teddi.library installieren?\n(unbedingt nötig um TPaint zu starten)")
  23.         (set #dithercopy "dither.library installieren?\n(unbedingt nötig um TPaint zu startn)")
  24.         (set #losaprcopy "losapr.library installieren?\n(unbedingt nötig um TPaint zu startn)")
  25.         (set #iconcopy "Standard-Piktogramm für Bilder installieren?")
  26.         (set #palettecopy "Gespeicherte Paletten installieren?")
  27.         (set #filtercopy "Gespeicherte Filter installieren?")
  28.         (set #startup "Soll die 'S:user-startup' verändert werden?\n(TPaint findet sonst das Piktogramm für Bilder nicht)")
  29.     )
  30. )
  31.  
  32.  
  33. (set src (expandpath (cat (pathonly @icon) "//")))
  34.  
  35. (welcome)
  36.  
  37. (set @default-dest (askdir (default @default-dest)
  38.                            (prompt #selectdest)
  39.                            (help @askdir-help)
  40.                    )
  41. )
  42.  
  43. (if (not (exists (tackon @default-dest "TPaint"))) (
  44.         (makedir (tackon @default-dest "TPaint") (infos))
  45.     )
  46. )
  47.  
  48. (set @default-dest (tackon @default-dest "TPaint"))
  49.  
  50. (copyfiles (source src)
  51.            (dest @default-dest)
  52.            (infos)
  53.            (choices "TPaint")
  54.            (confirm)
  55.            (prompt #maincopy)
  56.            (help @copyfiles-help)
  57. )
  58.  
  59. (copylib   (source (tackon src "libs/teddi.library"))
  60.            (dest "libs:")
  61.            (confirm)
  62.            (prompt #teddicopy)
  63.            (help @copyfiles-help)
  64. )
  65.  
  66. (copylib   (source (tackon src "libs/dither.library"))
  67.            (dest "libs:")
  68.            (confirm)
  69.            (prompt #dithercopy)
  70.            (help @copyfiles-help)
  71. )
  72.  
  73. (copylib   (source (tackon src "libs/losapr.library"))
  74.            (dest "libs:")
  75.            (confirm)
  76.            (prompt #losaprcopy)
  77.            (help @copyfiles-help)
  78. )
  79.  
  80. (copyfiles (source src)
  81.            (dest @default-dest)
  82.            (infos)
  83.            (choices "TPaint.guide")
  84.            (confirm)
  85.            (prompt #guidecopy)
  86.            (help @copyfiles-help)
  87. )
  88.  
  89. (copyfiles (source src)
  90.            (dest @default-dest)
  91.            (confirm)
  92.            (choices "TPaint_default_icon.info")
  93.            (prompt #iconcopy)
  94.            (help @copyfiles-help)
  95. )
  96.  
  97. (copyfiles (source (tackon src "locale/catalogs/deutsch/"))
  98.            (dest "locale:catalogs/deutsch/")
  99.            (choices "tpaint.catalog" "teddi.catalog" "dither.catalog" "losapr.catalog")
  100.            (confirm)
  101.            (prompt #localcopy)
  102.            (help @copyfiles-help)
  103. )
  104.  
  105. (makedir (tackon @default-dest "palette") (infos))
  106.  
  107. (copyfiles (source (tackon src "palette/"))
  108.            (dest (tackon @default-dest "palette"))
  109.            (all)
  110.            (confirm)
  111.            (prompt #palettecopy)
  112.            (help @copyfiles-help)
  113. )
  114.  
  115. (makedir (tackon @default-dest "filter") (infos))
  116.  
  117. (copyfiles (source (tackon src "filter/"))
  118.            (dest (tackon @default-dest "filter"))
  119.            (all)
  120.            (confirm)
  121.            (prompt #filtercopy)
  122.            (help @copyfiles-help)
  123. )
  124.  
  125. (startup "TPaint"
  126.            (command (cat "assign TPaint: " @default-dest))
  127.            (prompt #startup)
  128.            (help @startup-help)
  129. )
  130.  
  131. (makeassign "TPaint" @default-dest)
  132.  
  133.